home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / hiz / 09 / 09.exe / adynware.exe / perl / lib / find.pl < prev    next >
Encoding:
Text File  |  1999-12-28  |  341 b   |  18 lines
  1.  
  2. use File::Find ();
  3.  
  4. *name        = *File::Find::name;
  5. *prune        = *File::Find::prune;
  6. *dir        = *File::Find::dir;
  7. *topdir        = *File::Find::topdir;
  8. *topdev        = *File::Find::topdev;
  9. *topino        = *File::Find::topino;
  10. *topmode    = *File::Find::topmode;
  11. *topnlink    = *File::Find::topnlink;
  12.  
  13. sub find {
  14.     &File::Find::find(\&wanted, @_);
  15. }
  16.  
  17. 1;
  18.